home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / windows / games / prologcd.exe / PROLOG.CMP next >
Text File  |  1992-07-06  |  15KB  |  256 lines
  1. % -------------- POSTSCRIPT PROLOG FOR CORELDRAW 3.X ------
  2. % Copyright 1992 Corel Corporation.  All rights reserved.
  3. /wCorelDict 300 dict def wCorelDict begin/bd{bind def}bind def
  4. /ld{load def}bd/xd{exch def}bd/_ null def
  5. /$c 0 def/$m 0 def/$y 0 def/$k 0 def/$t 1 def
  6. /$n _ def/$o 0 def/$fil 0 def/$bkg false def
  7. /$C 0 def/$M 0 def/$Y 0 def/$K 0 def/$T 1 def
  8. /$N _ def/$O 0 def/$PF false def/$ctm matrix currentmatrix def
  9. /$ptm matrix def/$ttm matrix def/$stm matrix def
  10. /$fst 128 def/$pad 0 def/$rox 0 def/$roy 0 def
  11. currentscreen/@dsp xd/$dsp/@dsp def/$dsa xd
  12. /$dsf xd/$sdf false def/$SDF false def/$Scra 0.0 def
  13. /$sv 0 def/@cp/closepath ld/@gs/gsave ld/@gr/grestore ld
  14. /@np/newpath ld/@sv{/$sv save def}bd/@rs{$sv restore}bd
  15. /@ss{exch $Scra add exch load setscreen}bd
  16. AutoFlatness{/$cpx ([Error: PathTooComplex; OffendingCommand: AnyPaintingOperator]\n) def
  17. /@err1{$cpx print flush newpath}bd/@ifl{dup currentflat exch sub 10 gt
  18. {@err1 exit}{currentflat 2 add setflat}ifelse}bd
  19. /@fill/fill ld/fill{currentflat{{@fill}stopped{@ifl}{exit}ifelse
  20. }bind loop setflat}bd/@eofill/eofill ld/eofill{currentflat{{@eofill}
  21. stopped{@ifl}{exit}ifelse}bind loop setflat}bd
  22. /@clip/clip ld/clip{currentflat{{@clip}stopped{initclip @ifl}{exit
  23. }ifelse}bind loop setflat}bd/@eoclip/eoclip ld
  24. /eoclip{currentflat{{@eoclip}stopped{initclip @ifl}{exit}ifelse
  25. }bind loop setflat}bd/@stroke/stroke ld/stroke{currentflat{{@stroke}
  26. stopped{@ifl}{exit}ifelse}bind loop setflat}bd}if
  27. /InRange{3 -1 roll 2 copy le{pop}{exch pop}ifelse
  28. 2 copy ge{pop}{exch pop}ifelse}bd/wDstChck{2 1 roll dup 3 -1 roll
  29. eq{1 add}if}bd/@dot{dup mul exch dup mul add 1 exch sub 2 div}bd
  30. /@lin{exch pop abs 1 exch sub}bd/@MN{2 copy le{pop}{exch pop}ifelse}bd
  31. /setcmykcolor where{pop}{/setcmykcolor{4 1 roll
  32. 3{3 index add 1 @MN 1 exch sub 3 1 roll}repeat
  33. setrgbcolor pop}bd}ifelse/setoverprint{/$op xd}bd
  34. /currentoverprint{$op}bd/setsepcolor{1 exch sub setgray}bd
  35. /checksepcolor{1 exch sub dup setgray 1 eq exch 1 eq and not}bd
  36. /setprocesscolor{ColorSeparationMode 0 eq{setcmykcolor}{
  37. 0 4 $ink sub index exch pop 5 1 roll 4{pop}repeat
  38. setsepcolor}ifelse}bd/findcmykcustomcolor{5 array astore}bd
  39. /setcustomcolor where{pop}{/setcustomcolor{ColorSeparationMode 0 eq{
  40. exch aload pop pop 4{4 index mul 4 1 roll}repeat
  41. 5 -1 roll pop setcmykcolor}{exch aload pop
  42. CurrentInkName eq{4 index}{0}ifelse 6 1 roll
  43. 5{pop}repeat setsepcolor}ifelse}bd}ifelse/colorimage where{pop}{
  44. /colorimage{pop pop pop pop pop{currentfile $dat readhexstring pop pop}
  45. repeat pop}bd}ifelse/@tc{dup 1 ge{pop}{4{dup
  46. 6 -1 roll mul exch}repeat pop}ifelse}bd/@scc{1 eq setoverprint
  47. dup _ eq{pop setprocesscolor pop}{findcmykcustomcolor
  48. exch setcustomcolor}ifelse ColorSeparationMode 0 eq{true}{
  49. currentgray 1 eq currentoverprint and not}ifelse}bd
  50. /@sft{/$tx $tllx $pxf add dup $tllx gt{$pwid sub}if def
  51. /$ty $tury $pyf sub dup $tury lt{$phei add}if def}bd
  52. /@stb{pathbbox/$ury xd/$urx xd/$lly xd/$llx xd}bd
  53. /@ep{{cvx exec}forall}bd/@tp{@sv/$in true def
  54. 2 copy dup $lly le{/$in false def}if $phei sub $ury ge{/$in false def}if
  55. dup $urx ge{/$in false def}if $pwid add $llx le{/$in false def}if
  56. $in{@np 2 copy moveto $pwid 0 rlineto 0 $phei neg rlineto
  57. $pwid neg 0 rlineto 0 $phei rlineto clip @np
  58. $pn cvlit load aload pop 7 -1 roll 5 index sub
  59. 7 -1 roll 3 index sub translate/$ctm matrix currentmatrix def
  60. @ep pop pop pop pop}{pop pop}ifelse @rs}bd/@th{@sft
  61. 0 1 $tly 1 sub{dup $psx mul $tx add{dup $llx gt{$pwid sub}{exit}ifelse
  62. }loop exch $phei mul $ty exch sub 0 1 $tlx 1 sub{$pwid mul
  63. 3 copy 3 -1 roll add exch @tp pop}for pop pop}for}bd
  64. /@tv{@sft 0 1 $tlx 1 sub{dup $pwid mul $tx add
  65. exch $psy mul $ty exch sub{dup $ury lt{$phei add}{exit}ifelse}loop
  66. 0 1 $tly 1 sub{$phei mul 3 copy sub @tp pop}for
  67. pop pop}for}bd/@pf{@gs $ctm setmatrix $pm concat
  68. @stb @gs $vectpat{1 0 0 0 0 _ $o @scc{eofill}if}{
  69. $t $c $m $y $k $n $o @scc{eofill/$bkg true def}if}ifelse
  70. @gr eoclip Bburx Bbury $pm itransform/$tury xd/$turx xd
  71. Bbllx Bblly $pm itransform/$tlly xd/$tllx xd
  72. /$wid $turx $tllx sub def/$hei $tury $tlly sub def
  73. $wid 0 gt $hei 0 gt and{$pn cvlit load aload pop
  74. /$pd xd 3 -1 roll sub/$phei xd exch sub/$pwid xd
  75. /$tlx $wid $pwid div ceiling 1 add def/$tly $hei $phei div ceiling 1 add def
  76. $psx 0 eq{@tv}{@th}ifelse}if @gr @np/$bkg false def}bd
  77. /@dlt{ColorSeparationMode 0 eq{/$dc $toc $tot mul $frc $frt mul dup/$c xd sub $fst 1 sub div def
  78. /$dm $tom $tot mul $frm $frt mul dup/$m xd sub $fst 1 sub div def
  79. /$dy $toy $tot mul $fry $frt mul dup/$y xd sub $fst 1 sub div def
  80. /$dk $tok $tot mul $frk $frt mul dup/$k xd sub $fst 1 sub div def
  81. true}{$frt $frc $frm $fry $frk $frn $o @scc
  82. dup{/$frk 1 currentgray sub def}{/$frk 0 def}ifelse
  83. $tot $toc $tom $toy $tok $ton $o @scc dup{/$tok 1 currentgray sub def}{
  84. /$tok 0 def}ifelse or dup{/$c 0 def/$m 0 def/$y 0 def/$k $frk def
  85. /$dc 0 def/$dm 0 def/$dy 0 def/$dk $tok $frk sub $fst 1 sub div def}if
  86. }ifelse}bd/@ftl{1 index 4 index sub dup $pad mul dup/$pdw xd
  87. 2 mul sub $fst div/$wid xd 2 index sub/$hei xd
  88. pop translate $c $m $y $k 4 copy ColorSeparationMode 0 ne
  89. {1 exch sub setgray pop pop pop}{setcmykcolor}ifelse
  90. 0 0 moveto 0 $hei lineto $pdw $hei lineto $pdw 0 lineto 0 0 lineto fill
  91. $pdw 0 translate $fst{4 copy ColorSeparationMode 0 ne
  92. {1 exch sub setgray pop pop pop}{setcmykcolor}ifelse
  93. 0 0 moveto 0 $hei lineto $wid $hei lineto $wid 0 lineto 0 0 lineto fill
  94. $wid 0 translate $dk add 4 1 roll $dy add 4 1 roll
  95. $dm add 4 1 roll $dc add 4 1 roll}repeat $dk sub 4 1 roll
  96. $dy sub 4 1 roll $dm sub 4 1 roll $dc sub 4 1 roll
  97. ColorSeparationMode 0 ne{1 exch sub setgray pop pop pop}
  98. {setcmykcolor}ifelse 0 0 moveto 0 $hei lineto $pdw $hei lineto $pdw 0 lineto 0 0 lineto fill
  99. }bd/@ftr{1 index 4 index sub dup $rox mul/$row xd
  100. 2 div 1 index 4 index sub dup $roy mul/$roh xd
  101. 2 div 2 copy dup mul exch dup mul add sqrt
  102. $row dup mul $roh dup mul add sqrt add dup/$hei xd $fst div/$wid xd
  103. 4 index add $roh add exch 5 index add $row add
  104. exch translate pop pop pop pop currentflat dup 5 mul setflat
  105. $c $m $y $k 4 copy ColorSeparationMode 0 ne
  106. {1 exch sub setgray pop pop pop}{setcmykcolor}ifelse
  107. $wid 0 moveto 0 0 $hei 0 360 arc fill 1.0 $pad 2 mul sub dup scale
  108. $fst{4 copy ColorSeparationMode 0 ne{1 exch sub setgray pop pop pop}
  109. {setcmykcolor}ifelse $wid 0 moveto 0 0 $hei 0 360 arc fill
  110. /$hei $hei $wid sub def $dk add 4 1 roll $dy add 4 1 roll
  111. $dm add 4 1 roll $dc add 4 1 roll}repeat pop pop pop pop
  112. setflat}bd/@ff{@gs @dlt{$ctm setmatrix eoclip
  113. newpath Bbllx Bblly moveto Bbllx Bbury lineto
  114. Bburx Bbury lineto Bburx Bblly lineto $fan rotate
  115. pathbbox newpath $fty 1 eq{@ftr}{@ftl}ifelse}if
  116. @gr @np}bd/@Pf{@sv ColorSeparationMode 0 eq $ink 3 eq or{0 J 0 j [] 0 d
  117. $t $c $m $y $k $n $o @scc pop $ctm setmatrix
  118. 72 1000 div dup matrix scale dup concat dup Bburx exch Bbury exch itransform
  119. ceiling cvi/Bbury xd ceiling cvi/Bburx xd Bbllx exch Bblly exch itransform
  120. floor cvi/Bblly xd floor cvi/Bbllx xd $Prm aload pop
  121. $Psn load exec}{1 setgray eofill}ifelse @rs
  122. @np}bd/g{1 exch sub/$k xd/$c 0 def/$m 0 def/$y 0 def/$t 1 def/$n _ def/$fil 0 def
  123. }bd/G{1 exch sub/$K xd/$C 0 def/$M 0 def/$Y 0 def/$T 1 def/$N _ def}bd
  124. /k{/$k xd/$y xd/$m xd/$c xd/$t 1 def/$n _ def/$fil 0 def}bd
  125. /K{/$K xd/$Y xd/$M xd/$C xd/$T 1 def/$N _ def}bd
  126. /x{/$t xd/$n xd/$k xd/$y xd/$m xd/$c xd/$fil 0 def}bd
  127. /X{/$T xd/$N xd/$K xd/$Y xd/$M xd/$C xd}bd
  128. /d/setdash ld/i{dup 0 ne{setflat}{pop}ifelse}bd
  129. /j/setlinejoin ld/J/setlinecap ld/M/setmiterlimit ld
  130. /w/setlinewidth ld/O{/$o xd}bd/R{/$O xd}bd
  131. /c/curveto ld/C/c ld/v{4 -2 roll 2 copy 6 -2 roll curveto}bd
  132. /V/v ld/y{2 copy curveto}bd/Y/y ld/l/lineto ld
  133. /L/l ld/rl/rlineto ld/m/moveto ld/n/newpath ld
  134. /N/newpath ld/F{matrix currentmatrix $sdf{$scf $sca $scp @ss}if
  135. $fil 1 eq{@pf}{$fil 2 eq{@ff}{$fil 3 eq{@Pf}{$t $c $m $y $k $n $o @scc
  136. {eofill}{@np}ifelse}ifelse}ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if
  137. setmatrix}bd/f{@cp F}bd/S{matrix currentmatrix
  138. $ctm setmatrix $SDF{$SCF $SCA $SCP @ss}if $T $C $M $Y $K $N $O @scc{
  139. matrix currentmatrix $ptm concat stroke setmatrix}{@np}ifelse
  140. $SDF{$dsf $dsa $dsp @ss}if setmatrix}bd/s{@cp
  141. S}bd/B{@gs F @gr S}bd/b{@cp B}bd/W{eoclip}bd
  142. /p{/$pm xd 7{pop}repeat/$pyf xd/$pxf xd/$pn xd
  143. /$fil 1 def}bd/P{11{pop}repeat}bd/u{}bd/U{}bd
  144. /A{pop}bd/q/@gs ld/Q/@gr ld/E{5 array astore
  145. exch cvlit exch def}bd/`{}bd/~{}bd/@{}bd/&{}bd
  146. /CorelDrawReencodeVect [ 16#82/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  147. 16#88/circumflex/perthousand/Scaron/guilsinglleft/OE
  148. 16#91/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
  149. 16#98/tilde/trademark/scaron/guilsinglright/oe
  150. 16#9F/Ydieresis 16#A1/exclamdown/cent/sterling/currency/yen/brokenbar/section
  151. 16#a8/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/minus/registered/macron
  152. 16#b0/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered
  153. 16#b8/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown
  154. 16#c0/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
  155. 16#c8/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
  156. 16#d0/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply
  157. 16#d8/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  158. 16#e0/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  159. 16#e8/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
  160. 16#f0/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide
  161. 16#f8/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  162. ] def/@cc{currentfile $dat readhexstring pop}bd
  163. /@sm{/$ctm $ctm currentmatrix def}bd/@E{/Bbury xd/Bburx xd
  164. /Bblly xd/Bbllx xd}bd/@c{@cp}bd/@p{/$fil 1 def
  165. 1 eq/$vectpat xd/$pm xd/$psy xd/$psx xd/$pyf xd/$pxf xd
  166. /$pn xd}bd/@P{/$fil 3 def/$Psn xd array astore
  167. /$Prm xd}bd/@k{/$fil 2 def/$roy xd/$rox xd/$pad xd
  168. /$fty xd/$fan xd $fty 1 eq{/$fan 0 def}if/$tok xd/$toy xd/$tom xd/$toc xd
  169. /$frk xd/$fry xd/$frm xd/$frc xd/$frn _ def/$frt 1 def/$ton _ def/$tot 1 def
  170. }bd/@x{/$fil 2 def/$roy xd/$rox xd/$pad xd
  171. /$fty xd/$fan xd/$tot xd/$ton xd/$tok xd/$toy xd/$tom xd/$toc xd
  172. /$frt xd/$frn xd/$frk xd/$fry xd/$frm xd/$frc xd}bd
  173. /@ii{concat 3 index 3 index m 3 index 1 index l
  174. 2 copy l 1 index 3 index l 3 index 3 index l
  175. clip pop pop pop pop}bd/@i{@sm @gs @ii 6 index 1 ne{/$frg true def
  176. pop pop}{1 eq{$T $C $M $Y $K $N $O @scc/$frg xd}{/$frg false def
  177. }ifelse 1 eq{@gs $ctm setmatrix $t $c $m $y $k $n $o @scc{eofill}if
  178. @gr}if}ifelse/$frg $frg $bkg or def @np/$ury xd/$urx xd/$lly xd/$llx xd
  179. /$bts xd/$hei xd/$wid xd/$dat $wid $bts mul 8 div ceiling cvi string def
  180. $frg{$SDF{$SCF $SCA $SCP @ss}if $llx $lly translate
  181. $urx $llx sub $ury $lly sub scale $wid $hei abs
  182. $bts 1 eq{false}{$bts}ifelse [ $wid 0 0 $hei neg 0
  183. $hei 0 gt{$hei}{0}ifelse]/@cc load $bts 1 eq{imagemask}{image}ifelse
  184. $SDF{$dsf $dsa $dsp @ss}if}{$hei abs{@cc pop}repeat}ifelse
  185. @gr $ctm setmatrix}def/@M{@sv}bd/@N{/@cc{}def
  186. 1 eq{12 -1 roll neg 12 1 roll @I}{13 -1 roll neg 13 1 roll
  187. @i}ifelse @rs}bd/@I{@sm @gs @ii @np/$ury xd/$urx xd/$lly xd/$llx xd
  188. /$ncl xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul $ncl mul 8 div ceiling cvi string def
  189. $llx $lly translate $urx $llx sub $ury $lly sub scale
  190. $wid $hei abs $bts [ $wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse]
  191. /@cc load false $ncl colorimage @gr $ctm setmatrix}bd
  192. /z{exch findfont exch scalefont setfont}bd
  193. /ZB{9 dict dup begin 4 1 roll/FontType 3 def
  194. /FontMatrix xd/FontBBox xd/Encoding 256 array def
  195. 0 1 255{Encoding exch/.notdef put}for/CharStrings 256 dict def
  196. CharStrings/.notdef{}put/Metrics 256 dict def
  197. Metrics/.notdef 3 -1 roll put/BuildChar{exch
  198. dup/$char exch/Encoding get 3 index get def
  199. dup/Metrics get $char get aload pop setcachedevice
  200. begin Encoding exch get CharStrings exch get
  201. end exec}def end definefont pop}bd/ZBAddChar{findfont begin
  202. dup 4 1 roll dup 6 1 roll Encoding 3 1 roll put
  203. CharStrings 3 1 roll put Metrics 3 1 roll put
  204. end}bd/Z{findfont dup maxlength 2 add dict exch
  205. dup{1 index/FID ne{3 index 3 1 roll put}{pop pop}ifelse}forall
  206. pop dup dup/Encoding get 256 array copy dup/$fe xd
  207. /Encoding exch put dup/Fontname 3 index put
  208. 3 -1 roll dup length 0 ne{0 exch{dup type 0 type eq{exch pop}{
  209. $fe exch 2 index exch put 1 add}ifelse}forall
  210. pop}if dup 256 dict dup/$met xd/Metrics exch put
  211. dup/FontMatrix get 0 get 1000 mul 1 exch div
  212. 3 index length 256 eq{0 1 255{dup $fe exch get
  213. dup/.notdef eq{pop pop}{5 index 3 -1 roll get
  214. 2 index mul $met 3 1 roll put}ifelse}for}if
  215. pop definefont pop pop}bd/@ftx{{(0) dup 3 -1 roll 0 exch put
  216. @gs true charpath $ctm setmatrix @@txt @gr @np}forall}bd
  217. /@ft{matrix currentmatrix exch $sdf{$scf $sca $scp @ss}if
  218. $fil 1 eq{/@@txt/@pf ld @ftx}{$fil 2 eq{/@@txt/@ff ld @ftx}{$fil 3 eq
  219. {/@@txt/@Pf ld @ftx}{$t $c $m $y $k $n $o @scc{show}{pop}ifelse}ifelse
  220. }ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if setmatrix}bd
  221. /@st{matrix currentmatrix exch $SDF{$SCF $SCA $SCP @ss}if
  222. $T $C $M $Y $K $N $O @scc{{(0) dup 3 -1 roll 0 exch put
  223. @gs true charpath $ctm setmatrix $ptm concat
  224. stroke @gr}forall}{pop}ifelse $SDF{$dsf $dsa $dsp @ss}if
  225. setmatrix}bd/@te{@ft}bd/@tr{@st}bd/@ta{dup
  226. @gs @ft @gr @st}bd/@t@a{dup @gs @st @gr @ft}bd
  227. /@tm{/$textsave save def @sm concat}bd/e{/t{@te}def}bd
  228. /r{/t{@tr}def}bd/o{/t{pop}def}bd/a{/t{@ta}def}bd
  229. /@a{/t{@t@a}def}bd/t{@te}def/T{@np $ctm setmatrix
  230. /$ttm matrix def $textsave restore}bd/@t{/$stm $stm currentmatrix def
  231. 3 1 roll moveto $ttm concat t $stm setmatrix}def
  232. /@n{/$ttm exch matrix rotate def}bd/@s{}bd
  233. /@l{}bd/@B{@gs S @gr F}bd/@b{@cp @B}bd/@w{matrix rotate/$ptm xd
  234. matrix scale $ptm dup concatmatrix/$ptm xd
  235. 1 eq{$ptm exch dup concatmatrix/$ptm xd}if
  236. 1 w}bd/@g{1 eq dup/$sdf xd{/$scp xd/$sca xd
  237. /$scf xd}if}bd/@G{1 eq dup/$SDF xd{/$SCP xd
  238. /$SCA xd/$SCF xd}if}bd/@D{3 copy @ss/$dsp xd
  239. /$dsa xd/$dsf xd}bd/@j{@sv @np}bind def/@J{@rs}bind def
  240. /@sep{/ColorSeparationMode where{pop}{/ColorSeparationMode 0 def
  241. /CurrentInkName (Composite) def}ifelse ColorSeparationMode 0 eq{
  242. /CurrentInkName (Composite) def}if/CurrentInkName where{pop}{
  243. /CurrentInkName (Composite) def}ifelse CurrentInkName (Composite) eq
  244. {/$ink -1 def}{CurrentInkName (Cyan) eq{/$ink 0 def}{
  245. CurrentInkName (Magenta) eq{/$ink 1 def}{CurrentInkName (Yellow) eq
  246. {/$ink 2 def}{CurrentInkName (Black) eq{/$ink 3 def}{/$ink 4 def
  247. }ifelse}ifelse}ifelse}ifelse}ifelse}bd @sep
  248. /@whi{@gs -72000 dup moveto -72000 72000 lineto
  249. 72000 dup lineto 72000 -72000 lineto closepath 1 setgray fill
  250. @gr}bd/@neg{ [{1 exch sub}/exec cvx currenttransfer/exec cvx] cvx settransfer
  251. @whi}bd/@reg{[] 0 d 0 setgray .3 setlinewidth
  252. 2 copy 5.4 0 360 arc closepath 2 copy moveto 9 0 rlineto
  253. 2 copy moveto -9 0 rlineto 2 copy moveto 0 9 rlineto
  254. moveto 0 -9 rlineto stroke}bd/leftbracket{(\050)}def
  255. /rightbracket{(\051)}def
  256.